Option Explicit
Sub A_Sample039()
    Dim myRng As Range
    Dim mySht As Worksheet
    Dim myShp As Shape
    Set mySht = Worksheets(1)		'N
    For Each myShp In mySht.Shapes
      myShp.Delete				'RJsShape
    Next
    Set myShp = mySht.Shapes.AddShape(Type:=msoShape32pointStar _
        Left:=100, Top:=100, Width:=100, Height:=100)	'tmShape
    'ǳƨ즹
    Set myRng = myShp.TopLeftCell		'oW
    'Set myRng = myShp.BottomRightCell	'okU
    MsgBox myRng.Address
    Set myRng = Nothing			'
    Set myShp = Nothing
    Set mySht = Nothing
End Sub
